home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Utilities / List Randomizer 2.1 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1994-04-30  |  2.6 KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>3716</cardID>
  8.     <listID>2269</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>‚àû‚àû‚àû‚àû Script info for "List Randomizer 2.1", STACK ‚àû‚àû‚àû‚àûHANDLERS:-- closeStack, openStack, readFile, saveFileGLOBALS:-- fName, status, uLSTATS: 1671 chars, 76 lines, 3/14/92, 2:22 PM‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû----  Script of stack "List Randomizer"----  Written by Jack W. Richens, Jr.--             Richens Consulting--             P.O. Box 1853--             Columbia, MO  65205--             (314) 445-8042----  Copyright 1991, Richens Consulting, Columbia, Missouri----  THIS STACK IS FOR FREE DISTRIBUTION!  IT CANNOT BE USED--  COMMERCIALLY OR DISTRUIBUTED FOR PROFIT!------  This script contains startup and subroutine scripts.--on openStackglobal uL,fName,statusput the userlevel into uLIf the shiftkey is not down thenhide menubarset the userlevel to 2end if--put empty into cd fld "TheList"put empty into fNameput "N" into statusend openStackon closeStackglobal uL,fName,statusif status is "N" and cd fld "TheList" is not empty then----  need to save list before exiting--answer "Save changes before leaving?" with "Yes" or "No"if it is "Yes" then do saveFileend ifset the userLevel to uLend closeStackon readFileglobal uL,fName,status--answer file "List location..." of type TEXT  -- REV 910916if it is empty then exit readFileput it into fName--open file fNameput 1 into lNumberread from file fName until returnrepeat until it is emptyput it after cd fld "TheList"read from file fName until returnend repeatclose file fNameend readFileon saveFileglobal uL,fName,status--if fName is empty thenask file "Save list as..." with "TheList.txt"if it is empty then exit saveFileput it into fNameend if--open file fNamewrite cd fld "TheList" to file fNameclose file fNameend saveFile</script>
  17.     <background id="4025" file="background_4025.xml" name="" />
  18.     <card id="3716" file="card_3716.xml" marked="false" name="" owner="4025" />
  19.     <card id="5297" file="card_5297.xml" marked="false" name="Help" owner="4025" />
  20.     <card id="5716" file="card_5716.xml" marked="false" name="About" owner="4025" />
  21. </stack>
  22.